home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / mpascal / make.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  706 b   |  36 lines
  1. /*
  2. ** $VER: make 0.002 (11 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** FUNCTION : Aufrufen der Projectverwaltung
  7. **
  8. **            Falls MPascal noch nicht gestartet wurde wird dieses vorher noch
  9. **            erledigt.
  10. **
  11. */
  12.  
  13. host = ADDRESS()                              /* get GED's port    */
  14.  
  15. IF ~show('p', 'MPASCAL') THEN
  16.  
  17.     do
  18.        shell                                  /* talk to AmigaDos  */
  19.        'run >NIL: PASCAL:BIN/MPASCAL -c S:MPascal.config -r MPASCAL'
  20.        'WaitForPort MPASCAL'
  21.     end
  22.  
  23. IF show('p', 'MPASCAL') THEN
  24.  
  25.     do
  26.         ADDRESS MPASCAL
  27.         "make"
  28.     end
  29. else 
  30.     do
  31.         ADDRESS (host)
  32.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  33.     end
  34.  
  35. EXIT
  36.